대기업 본사 지도

공정거래위원회에서 지정한 상위 대기업 본사 주소를 기준으로 서울시 지도에 로고를 입혀 시각화 합니다.

지도
대기업
공정거래위원회
로고
저자
공개

2022년 11월 24일

1 데이터

대기업 주소를 지도에 로고를 입혀 시각화하기 위해 필요한 데이터는 다음과 같다.

  1. 공정거래위원회 지정 최신 공시대상기업집단: 공정위 뉴스 2022년 대기업집단 지정결과
자료출처: www.ftc.go.kr

1.1 대기업 집단 순위

공정위 2022년 기준 공시대상 대기업집단 지정결과를 확인할 수 있다.

library(tidyverse)
library(readxl)

rank_raw <- read_excel(glue::glue("{here::here()}/data/220428(조간) 2022년도 대기업집단 지정결과_별첨1.xlsx"), sheet = "22년", skip = 4)

rank_tbl <- rank_raw %>% 
  set_names(c("순위_22", "순위_21", "변동", "기업명", "동일인", "계열사_22", "계열사_21", "자산_22", "자산_21")) %>% 
  filter(변동 !="제외") %>% 
  select(기업명, 동일인, 계열사수=계열사_22, 자산총액 = 자산_22) %>% 
  mutate(계열사수 = parse_number(계열사수),
         자산총액 = parse_number(자산총액)/1000) %>% 
  filter(!is.na(기업명))

rank_tbl
# A tibble: 76 × 4
   기업명     동일인             계열사수 자산총액
   <chr>      <chr>                 <dbl>    <dbl>
 1 삼성       이재용                   60    484. 
 2 에스케이   최태원                  186    292. 
 3 현대자동차 정의선                   57    258. 
 4 엘지       구광모                   73    168. 
 5 롯데       신동빈                   85    122. 
 6 포스코     포스코홀딩스(주)         38     96.3
 7 한화       김승연                   91     80.4
 8 지에스     허창수                   93     76.8
 9 현대중공업 정몽준                   36     75.3
10 농협       농업협동조합중앙회       53     67.0
# … with 66 more rows

1.2 본사 주소

fnguide 에서 기업주소록에서 엑셀파일로 가-하, A-Z, 0-9 기업본사주소가 담긴 정보를 다운로드 받아 후처리한다.

company_list <- fs::dir_ls(glue::glue("{here::here()}/data/company_xlsx"))

company_raw <- map_df(company_list, read_excel)

company_raw %>% tail
# A tibble: 6 × 6
  종목명       시장   홈페이지           본사주소                 대표…¹  IR담당
  <chr>        <chr>  <chr>              <chr>                    <chr>   <chr> 
1 진양화학     코스피 www.chinyang.co.kr 울산시 남구 장생포로 93… 052-27… 052-2…
2 진에어       코스피 www.jinair.com     서울시 강서구 공항대로 … 1600-6… <NA>  
3 진원생명과학 코스피 www.genels.com     서울특별시 영등포구 여…  02-345… 02-34…
4 진코스텍     코넥스 www.jincostech.com 경기도 시흥시 군자천로2… 031)43… 031-5…
5 진흥기업     코스피 www.chinhung.co.kr 인천시 연수구 컨벤시아…  032-43… 032-4…
6 질경이       코넥스 www.hudc.co.kr     서울특별시 서초구 반포…  070)89… 02-58…
# … with abbreviated variable name ¹​대표전화
일치 없음